home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / AFGEN.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  549 b   |  29 lines
  1. 10 INPUT "F (HZ)";F
  2. 11 IF F>3995 THEN GOTO 10
  3. 20 PRINT "WAVEFORM:":PRINT"   (T)RIANGLE"
  4. 30 PRINT "   (S)AWTOOTH"
  5. 40 PRINT "   (P)ULSE"
  6. 50 PRINT "   (N)OISE"
  7. 60 INPUT S$
  8. 70 IF S$="T" THEN LET W=17
  9. 80 IF S$="S" THEN LET W=33
  10. 90 IF S$="P" THEN LET W=65
  11. 100 IF S$="N" THEN LET W=129
  12. 110 FOR X=54272 TO 54296:POKE X,0:NEXT
  13. 111 POKE 54275,8
  14. 120 POKE 54296,15
  15. 130 POKE 54277,129
  16. 140 POKE 54278,129
  17. 150 F1=INT(F/.06097)
  18. 160 F2=INT(F1/256)
  19. 170 F3=F1-(256*F2)
  20. 180 POKE 54273,F2:POKE 54272,F3
  21. 190 POKE 54276,W
  22. 200 PRINT:PRINT "PRESS ANY KEY TO STOP TONE"
  23. 210 A$=""
  24. 220 GET A$:IF A$="" THEN GOTO 220
  25. 230 POKE 54296,0
  26. 240 INPUT "AGAIN";A$
  27. 250 IF A$="Y" THEN GOTO 10
  28. 260 END
  29.